home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 November / Macworld Nov ’95.toast / Developers / Sample LDEFs 2.0 / (Sys 6⁄7) Icon LDEF / Tester Src / List.c < prev    next >
Encoding:
Text File  |  1993-10-26  |  1.3 KB  |  53 lines  |  [TEXT/KAHL]
  1. // File "List.c"
  2.  
  3. #include <Icons.h>
  4. #include "main.h"
  5. #include "List.h"
  6.  
  7. extern WindowPtr gWindow;
  8. extern ListHandle gList;
  9.  
  10. // * **************************************************************************** * //
  11. // * **************************************************************************** * //
  12.  
  13. void CreateList() {
  14.     short iconID;
  15.     Cell theCell;
  16.     Rect destRect, cellRect;
  17.     GrafPtr savePort;
  18.     Str63 textBuff;
  19.     
  20.     GetPort(&savePort);
  21.     SetPort(gWindow);
  22.     
  23.     destRect = gWindow->portRect;
  24.     destRect.right -= 15;
  25.     destRect.bottom -= 15;
  26.     
  27.     SetRect(&cellRect, 0, 0, 1, 0);
  28.     theCell.h = 120; theCell.v = 54;
  29.     
  30.     TextFont(1); TextSize(9); TextFace(bold);
  31.     gList = LNew(&destRect, &cellRect, theCell, 131, gWindow, 0, -1, -1, -1);
  32.     
  33.     LAddRow(6, 0, gList);
  34.     for(theCell.h = theCell.v = 0; theCell.v < (*gList)->dataBounds.bottom; theCell.v++) {
  35.         iconID = 1001 + theCell.v;
  36.         LSetCell(&iconID, sizeof(iconID), theCell, gList);
  37.         LAddToCell("Cell ", sizeof("Cell "), theCell, gList);
  38.         NumToString(theCell.v, textBuff);
  39.         LAddToCell(textBuff+1, textBuff[0], theCell, gList);
  40.         }
  41.     LDoDraw(-1, gList);
  42.     
  43.     SetPort(savePort);
  44.     }
  45.  
  46. // * **************************************************************************** * //
  47. // * **************************************************************************** * //
  48.  
  49. void DisposeList() {
  50.  
  51.     LDispose(gList);
  52.     }
  53.